object testfrm: Ttestfrm
  Left = 279
  Top = 316
  Width = 890
  Height = 524
  Caption = 'KsanaForth'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 99
    Top = 0
    Height = 462
  end
  object PanelBottom: TPanel
    Left = 0
    Top = 462
    Width = 882
    Height = 32
    Align = alBottom
    TabOrder = 0
    object enterinput: TTntButton
      Left = 793
      Top = 1
      Width = 86
      Height = 28
      Caption = 'EnterInput'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = enterinputClick
    end
    object stepwise: TTntButton
      Left = 102
      Top = 1
      Width = 86
      Height = 28
      Caption = 'Stepwise'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Visible = False
    end
    object debug: TCheckBox
      Left = 4
      Top = 2
      Width = 89
      Height = 25
      Caption = 'Debuging'
      TabOrder = 2
      OnClick = debugClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 99
    Height = 462
    Align = alLeft
    TabOrder = 1
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 97
      Height = 16
      Align = alTop
      Caption = 'dStack'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object labeltoken: TLabel
      Left = 1
      Top = 402
      Width = 97
      Height = 16
      Align = alBottom
      Caption = 'Token'
      Visible = False
    end
    object Label5: TLabel
      Left = 1
      Top = 185
      Width = 97
      Height = 16
      Align = alTop
      Caption = 'rStack'
    end
    object labelIP: TLabel
      Left = 1
      Top = 359
      Width = 97
      Height = 16
      Align = alBottom
      Caption = 'IP'
      Visible = False
    end
    object wordname: TLabel
      Left = 1
      Top = 445
      Width = 97
      Height = 16
      Align = alBottom
      Caption = 'WordName'
      Visible = False
    end
    object dstack: TListBox
      Left = 1
      Top = 17
      Width = 97
      Height = 168
      Align = alTop
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #32048#26126#39636
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 0
    end
    object ListBox1: TListBox
      Left = 1
      Top = 201
      Width = 97
      Height = 158
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #32048#26126#39636
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 1
    end
    object token: TListBox
      Left = 1
      Top = 418
      Width = 97
      Height = 27
      Align = alBottom
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #32048#26126#39636
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 2
      Visible = False
    end
    object ip: TListBox
      Left = 1
      Top = 375
      Width = 97
      Height = 27
      Align = alBottom
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #32048#26126#39636
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 3
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 102
    Top = 0
    Width = 780
    Height = 462
    Align = alClient
    TabOrder = 2
    object Label2: TLabel
      Left = 1
      Top = 1
      Width = 778
      Height = 16
      Align = alTop
      Caption = 'Output'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 1
      Top = 445
      Width = 778
      Height = 16
      Align = alBottom
      Caption = 'Input'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object output: TTntMemo
      Left = 1
      Top = 17
      Width = 778
      Height = 401
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
      OnKeyPress = outputKeyPress
    end
    object input: TTntComboBox
      Left = 1
      Top = 418
      Width = 778
      Height = 27
      Align = alBottom
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #32048#26126#39636
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 1
      Text = ': test create , does> @ dup * . ;   7 test xx'
      OnKeyPress = inputKeyPress
    end
  end
end
